home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / CAPACVAL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  7.3 KB  |  266 lines
  1. 10  'CAPACVAL - CAPACITOR STANDARD VALUES - 29 NOV 95 rev. 27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,0
  5. 50  UL$=STRING$(80,205)
  6. 60  LN$=STRING$(80,196)
  7. 70  '
  8. 80  DIM SM(73)       'silver mica
  9. 90   FOR Z=1 TO 73:READ SM(Z):NEXT Z
  10. 100  DIM PS(62)       'polystyrene
  11. 110   FOR Z=1 TO 62:READ PS(Z):NEXT Z
  12. 120  DIM DC(64)       'disc-ceramic
  13. 130   FOR Z=1 TO 64:READ DC(Z):NEXT Z
  14. 140  DIM TA(63,2)     'tantalum
  15. 150   FOR Z=1 TO 63:FOR Y=1 TO 2:READ TA(Z,Y):NEXT Y:NEXT Z
  16. 160  DIM CG(106,2)    'computer grade
  17. 170   FOR Z=1 TO 106:FOR Y=1 TO 2:READ CG(Z,Y):NEXT Y:NEXT Z
  18. 180  DIM EL(54,2)     'electrolytic
  19. 190   FOR Z=1 TO 54:FOR Y=1 TO 2:READ EL(Z,Y):NEXT Y:NEXT Z
  20. 200  IF PROG$="pwrcct"THEN 2100
  21. 210  '
  22. 220  COLOR 15,2,1
  23. 230  PRINT " CAPACITORS - STANDARD VALUES";TAB(57);"by George Murphy VE3ERP ";
  24. 240  COLOR 1,0:PRINT STRING$(80,223);
  25. 250  COLOR 7,0
  26. 260  PRINT TAB(7);
  27. 270  PRINT "These programs display data published in the ARRL ELECTRONICS DATA"
  28. 280  PRINT TAB(7);
  29. 290  PRINT "BOOK, 2nd Edition, pages 2-3 to 2-6."
  30. 300  PRINT UL$;
  31. 310  PRINT " Press number in < > for:"
  32. 320  PRINT UL$;
  33. 330  PRINT "   <1>  SILVER MICA capacitors"
  34. 340  PRINT "   <2>  POLYSTYRENE capacitors"
  35. 350  PRINT "   <3>  DISC-CERAMIC 1000v. capacitors"
  36. 360  PRINT "   <4>  TANTALUM, Epoxy-Dipped Drop Type capacitors"
  37. 370  PRINT "   <5>  COMPUTER-GRADE capacitors"
  38. 380  PRINT "   <6>  ELECTROLYTIC capacitors (small PC board type)""
  39. 390  PRINT UL$;
  40. 400  PRINT "   <0>  EXIT"
  41. 410  Z$=INKEY$:IF Z$=""THEN 410
  42. 420  IF Z$="0"THEN CLS:RUN EX$
  43. 430  IF Z$="1"THEN 510
  44. 440  IF Z$="2"THEN 730
  45. 450  IF Z$="3"THEN 950
  46. 460  IF Z$="4"THEN 1170
  47. 470  IF Z$="5"THEN 1560
  48. 480  IF Z$="6"THEN 2100
  49. 490  GOTO 410
  50. 500  '
  51. 510  '.....silver mica
  52. 520  CLS:COLOR ,,0
  53. 530  DATA 1,2,3,5,7,10,12,15,18,20,22,24,27,30,33,36,39,43,47,50,51,56,62,68
  54. 540  DATA 75,82,91,100,110,120,150,160,180,200,220,240,250,270,330,360,390
  55. 550  DATA 430,470,500,510,560,620,680,750,820,910,1000,1100,1200,1500,1600,1800
  56. 560  DATA 2000,2200,2400,2700,3000,3300,3900,4300,4700,5000,5100,5600,6200
  57. 570  DATA 6800,7500,8200
  58. 580  PRINT " SILVER MICA CAPACITORS - Standard Values in pF:"
  59. 590  PRINT UL$;
  60. 600  '
  61. 610  U$="#####,###"
  62. 620  FOR Z=1 TO 73 STEP 8
  63. 630  FOR Y=0 TO 7
  64. 640  X=Z+Y:IF X>73 THEN 700
  65. 650  PRINT USING U$;SM(X);
  66. 660  NEXT Y
  67. 670  PRINT ""
  68. 680  PRINT
  69. 690  NEXT Z
  70. 700  PRINT UL$;
  71. 710  GOTO 2480
  72. 720  '
  73. 730  '.....polystyrene
  74. 740  CLS:COLOR ,,0
  75. 750  DATA 20,33,39,47,56,68,82,100,120,150,180,220,270,300,330,360,390,430,470
  76. 760  DATA 500,510,560,600,620,680,750,820,910,1000,1100,1200,1300,1500,1600
  77. 770  DATA 1800,2000,2200,2400,2700,3000,3300,3600,3900,4300,4700,5000,5100
  78. 780  DATA 5600,6200,6800,7500,8200,9100,10000,12000,15000,16000,18000,20000
  79. 790  DATA 22000,24000,25000
  80. 800  PRINT " POLYSTYRENE CAPACITORS - Standard Values in pF:"
  81. 810  PRINT UL$;
  82. 820  '
  83. 830  U$="#####,###"
  84. 840  FOR Z=1 TO 62 STEP 8
  85. 850  FOR Y=0 TO 7
  86. 860  X=Z+Y:IF X>62 THEN 920
  87. 870  PRINT USING U$;PS(X);
  88. 880  NEXT Y
  89. 890  PRINT ""
  90. 900  PRINT
  91. 910  NEXT Z
  92. 920  PRINT UL$;
  93. 930  GOTO 2480
  94. 940  '
  95. 950  '.....disc-ceramic
  96. 960  CLS:COLOR ,,0
  97. 970  DATA 3.3,5,6,6.8,8,10,12,15,18,20,22,24,25,27,30,33,39,47,50,51,56,68,75
  98. 980  DATA 82,100,120,130,150,180,200,220,240,250,270,300,330,360,390,400,470
  99. 990  DATA 500,510,560,600,680,750,820,910,1000,1200,1500,1800,2000,2500,2700
  100. 1000  DATA 3000,3300,3900,4700,5000,5600,6800,8200,10000
  101. 1010  PRINT " DISC-CERAMIC 1000v. CAPACITORS - Standard Values in pF:"
  102. 1020  PRINT UL$;
  103. 1030  '
  104. 1040  FOR Z=1 TO 64 STEP 8
  105. 1050  FOR Y=0 TO 7
  106. 1060  X=Z+Y:IF X>64 THEN 1130
  107. 1070  IF X=1 OR X=4 THEN U$="#######.#"ELSE U$="#####,###"
  108. 1080  PRINT USING U$;DC(X);
  109. 1090  NEXT Y
  110. 1100  PRINT ""
  111. 1110  PRINT
  112. 1120  NEXT Z
  113. 1130  PRINT UL$;
  114. 1140  GOTO 2480
  115. 1150  V= 50:C=29:LN=4:GOSUB 2030
  116. 1160  '
  117. 1170  '.....tantalum
  118. 1180  CLS:COLOR  ,,0
  119. 1190  DATA 4,10,4,100,4,220
  120. 1200  DATA 6,6.8,6,33,6,68,6,150,6,270,6,330
  121. 1210  DATA 10,4.7,10,22,10,33,10,82,10,100,10,220
  122. 1220  DATA 15,3.3,15,15,15,22,15,68,15,120,15,150
  123. 1230  DATA 20,10,20,15,20,47,20,82,20,100
  124. 1240  DATA 25,1.5,25,2.2,25,6.8,25,10,25,33,25,56,25,68
  125. 1250  DATA 35,.1,35,.15,35,.22,35,.33,35,.47,35,.68,35,.82,35,1,35,1.5,35,2.2
  126. 1260  DATA 35,2.7,35,3.3,35,4.7,35,6.8,35,10,35,15,35,22,35,33,35,39
  127. 1270  DATA 50,.1,50,.22,50,.33,50,.47,50,1,50,1.5,50,2.2,50,3.3,50,4.7,50,5.6
  128. 1280  DATA 50,12
  129. 1290  PRINT " TANTALUM CAPACITORS (Epoxy-Dipped, Drop-Type) - Standard Values";
  130. 1300  PRINT " in >F"
  131. 1310  PRINT UL$;
  132. 1320  COLOR 0,7
  133. 1330  PRINT TAB(5);
  134. 1340  PRINT "4v.      6v.     10v.     15v.     20v.     25v.     35v.     50v.";
  135. 1350  PRINT "DEFSNGSOUND Rating ";
  136. 1360  COLOR 7,0
  137. 1370  PRINT LN$;
  138. 1380  '
  139. 1390  V= 4:C= 2:LN=4:GOSUB 1490
  140. 1400  V= 6:C=11:LN=4:GOSUB 1490
  141. 1410  V=10:C=20:LN=4:GOSUB 1490
  142. 1420  V=15:C=29:LN=4:GOSUB 1490
  143. 1430  V=20:C=38:LN=4:GOSUB 1490
  144. 1440  V=25:C=47:LN=4:GOSUB 1490
  145. 1450  V=35:C=56:LN=4:GOSUB 1490
  146. 1460  V=50:C=65:LN=4:GOSUB 1490
  147. 1470  LOCATE 24:PRINT UL$;
  148. 1480  GOTO 2480
  149. 1490  FOR Z=1 TO 63
  150. 1500  IF TA(Z,1)<>V THEN 1530
  151. 1510  LN=LN+1
  152. 1520  LOCATE LN,C:PRINT USING "###.#";TA(Z,2)
  153. 1530  NEXT Z
  154. 1540  RETURN
  155. 1550  '
  156. 1560  '.....computer grade
  157. 1570  CLS:COLOR  ,,0
  158. 1580  DATA 10,390000
  159. 1590  DATA 15,7500,15,15000,15,22000,15,34000,15,50000,15,75000,15,83000
  160. 1600  DATA 15,120000,15,180000,15,300000
  161. 1610  DATA 25,4500,25,9000,25,13000,25,20000,25,30000,25,45000,25,50000
  162. 1620  DATA 25,75000,25,110000,25,190000
  163. 1630  DATA 30,4000,30,8000,30,12000,30,18000,30,26000,30,39000,30,44000
  164. 1640  DATA 30,66000,30,97000,30,160000
  165. 1650  DATA 40,2900,40,5800,40,8700,40,13000,40,20000,40,30000,40,34000
  166. 1660  DATA 40,51000,40,76000,40,120000
  167. 1670  DATA 50,2400,50,4800,50,7200,50,11000,50,16000,50,24000,50,27000
  168. 1680  DATA 50,40000,50,41000,50,61000,50,100000
  169. 1690  DATA 75,1400,75,2800,75,4200,75,6300,75,10000,75,15000,75,17000
  170. 1700  DATA 75,25000,75,37000,75,60000
  171. 1710  DATA 100,850,100,1700,100,2600,100,5800,100,8700,100,9800,100,15000
  172. 1720  DATA 100,21000,100,36000
  173. 1730  DATA 200,300,200,590,200,850,200,1400,200,2000,200,2900,200,3400
  174. 1740  DATA 200,4900,200,7400,200,12000
  175. 1750  DATA 250,250,250,500,250,740,250,1200,250,2500,250,2900,250,4200
  176. 1760  DATA 250,6300,250,10000
  177. 1770  DATA 350,380,350,880,350,1300,350,1500,350,2200,350,3300,350,5100
  178. 1780  DATA 450,80,450,160,450,350,450,380,450,540,450,800,450,1300
  179. 1790  DATA 450,2000,450,3100
  180. 1800  PRINT " COMPUTER-GRADE CAPACITORS - Standard Values in >F"
  181. 1810  PRINT UL$;
  182. 1820  COLOR 0,7
  183. 1830  PRINT TAB(4);
  184. 1840  PRINT "15v.   25v.   30v.   40v.   50v.   75v.  100v.  200v.  250v.";
  185. 1850  PRINT "  350v.  450v."
  186. 1860  COLOR 7,0
  187. 1870  PRINT LN$;
  188. 1880  '
  189. 1890  V= 15:C= 1:LN=4:GOSUB 2030
  190. 1900  V= 25:C= 8:LN=4:GOSUB 2030
  191. 1910  V= 30:C=15:LN=4:GOSUB 2030
  192. 1920  V= 40:C=22:LN=4:GOSUB 2030
  193. 1930  V= 50:C=29:LN=4:GOSUB 2030
  194. 1940  V= 75:C=36:LN=4:GOSUB 2030
  195. 1950  V=100:C=43:LN=4:GOSUB 2030
  196. 1960  V=200:C=50:LN=4:GOSUB 2030
  197. 1970  V=250:C=57:LN=4:GOSUB 2030
  198. 1980  V=350:C=64:LN=4:GOSUB 2030
  199. 1990  V=450:C=71:LN=4:GOSUB 2030
  200. 2000  LOCATE 16:PRINT UL$;
  201. 2010  PRINT "390,000 >F - 10v. capacitors are also available."
  202. 2020  GOTO 2480
  203. 2030  FOR Z=1 TO 106
  204. 2040  IF CG(Z,1)<>V THEN 2070
  205. 2050  LN=LN+1
  206. 2060  LOCATE LN,C:PRINT USING "######";CG(Z,2)
  207. 2070  NEXT Z
  208. 2080  RETURN
  209. 2090  '
  210. 2100  '.....electrolytic
  211. 2110  CLS:COLOR  ,,0
  212. 2120  DATA 6.3,33
  213. 2130  DATA 10,33,10,100,10,220,10,330,10,470
  214. 2140  DATA 16,10,16,22,16,33,16,47,16,100,16,220,16,470,16,1000,16,2200
  215. 2150  DATA 25,4.7,25,22,25,33,25,47,25,100,25,220,25,330,25,470,25,1000,25,2200
  216. 2160  DATA 35,4.7,35,10,35,22,35,33,35,47,35,100,35,220,35,330,35,470,35,1000
  217. 2170  DATA 35,2200,35,4700
  218. 2180  DATA 50,1,50,2.2,50,3.3,50,4.7,50,10,50,33,50,47,50,100,50,220
  219. 2190  DATA 50,330,50,470
  220. 2200  DATA 63,10,63,22,63,47
  221. 2210  DATA 100,1,100,10,100,33
  222. 2220  PRINT " ELECTROLYTIC CAPACITORS - Standard Values in >F"
  223. 2230  PRINT UL$;
  224. 2240  COLOR 0,7
  225. 2250  PRINT TAB(4);
  226. 2260  PRINT "6.3v.      10v.      16v.      25v.      35v.      50v.      63v.";
  227. 2270  PRINT "     100v."
  228. 2280  COLOR 7,0
  229. 2290  PRINT LN$;
  230. 2300  '
  231. 2310  V=6.3:C= 2:LN=4:GOSUB 2410
  232. 2320  V= 10:C=12:LN=4:GOSUB 2410
  233. 2330  V= 16:C=22:LN=4:GOSUB 2410
  234. 2340  V= 25:C=32:LN=4:GOSUB 2410
  235. 2350  V= 35:C=42:LN=4:GOSUB 2410
  236. 2360  V= 50:C=52:LN=4:GOSUB 2410
  237. 2370  V= 63:C=62:LN=4:GOSUB 2410
  238. 2380  V=100:C=72:LN=4:GOSUB 2410
  239. 2390  LOCATE 17:PRINT UL$;
  240. 2400  GOTO 2480
  241. 2410  FOR Z=1 TO 54
  242. 2420  IF EL(Z,1)<>V THEN 2450
  243. 2430  LN=LN+1
  244. 2440  LOCATE LN,C:PRINT USING "####.#";EL(Z,2)
  245. 2450  NEXT Z
  246. 2460  RETURN
  247. 2470  '
  248. 2480  '.....end
  249. 2490  GOSUB 2530
  250. 2500  IF PROG$="pwrcct"THEN CLS:RUN PROG$
  251. 2510  CLS:GOTO 220
  252. 2520  '
  253. 2530  'HARDCOPY
  254. 2540  GOSUB 2650:LOCATE 25,2:COLOR 14,6
  255. 2550  PRINT " Press 1 to print screen, 2 to print screen & ";
  256. 2560  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  257. 2570  Z$=INKEY$:IF Z$="3"THEN GOSUB 2650:RETURN
  258. 2580  IF Z$="1"OR Z$="2"THEN GOSUB 2650:GOTO 2600
  259. 2590  GOTO 2570
  260. 2600  FOR QX=1 TO 24:FOR QY=1 TO 80
  261. 2610  LPRINT CHR$(SCREEN(QX,QY));
  262. 2620  NEXT QY:NEXT QX
  263. 2630  IF Z$="2"THEN LPRINT CHR$(12)
  264. 2640  GOTO 2540
  265. 2650  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  266.